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'‘e 


* (COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
* ALL RIGHTS RESERVED. 


® 

oa 

® 

” 

© 

: THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
s ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
+ COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
: OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE i HEREBY 
* TRANSFERRED. * 
® 

t THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. : 
® 

* 

& 

® 

® 

® 


* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IT 
TAL 


pARADAAAAALARAAALEALALE ALAS SAL ESET ESE SERRE ESSE EEE ES EE REE RRS EEE CSE 


Version: *v04-000' 

TITLE: CDDMAC CDD Macro Require File 

FACILITY: Common Data Dictionary 

ABSTRACT: 
This require file contains the CDD Macros used to access the CDD User 
Interface. 

ENVIRONMENT : 

AUTHOR: Jeff East and Kenneth J. Marchilena, 21-0ct-80 

MODIFIED BY: 


P.D. Oi tbore 31-Jul-1981 
Fixed bug nk SCDDSCREATE_HISTORY with no descriptor parameter 


$R( parm) 
This macro checks to make certain a required parameter is present. 


_ emer = 
ZIF ZNULL fegra) ZTHEN 
ZWARN (‘Required parame : 
euore x0U TE ZQUOTE TOUOTE "fouote ZQUOTE parm, * missing.) 
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KE YWORDMACRO 


status.wic.v = CDDSCLEAR_CELL (context.rlu.r, List.rlu.r, 
cell.rwu.v); 


SCDDSCLEAR_CELL (context, List, cell) = 
BEGIN 


EXTERNAL ROUTINE 
CDDSCLEAR_CELL : FORTRAN; 


CDDSCLEAR CELL ns + 5 a $R(context), ZEXPAND S$R(List), 
ZEXPAND SR(cell)) 


status.wlc.v = CDDSCREATE eth. ENTRY (context.rlu.r, Cpath.rt.dx? , 


ode.rlu.r) , position.rwu.v, Cgrant.rlu.v] , deny. rlu.v] , 
banish. rlu.vi Cpassword -rt.dx 
Cterminal.rt.dx3 uvic.rt. dx) , Cusername.rt. dx]); 


SCDDSCREATE_ACL_ENTRY (context, path, node, position, grant= =0, deny=0, 
banish=0, password=0, terminal=0, uic=0, username=0) 


EXTERNAL ROUTINE 
CDDSCREATE_ACL_ENTRY : FORTRAN; 


CDDSCREATE ACL Batay ie $R(context) 
ZIF ENOL bce? THEN 
vnode) ZTHEN 
HEARD OR ("Either path or node must be specified’) 


xeisé ° 
. . node 


E 
RIF ZNULL (node> XTHEN 


ath, 
rest ° 
» path, node 
zFI 


- ZEXPAND $R(position), grant, deny, banish, password, terminal, uic, 
END username) 
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x, 


status.wlc.v = CDDSCREATE_DIR (context.rlu.r, path.rt.dx, Cnode.rlu.r] , 
{protocol.rt.dx . Coptions.rlu.v] , Ty Bate et 


see *'7\ |" neat (context, path, node, protocol, options, location) = 


seh ROUTINE 
CDODSCREATE_DIR : FORTRAN; 


CDDSCREATE DIR (ZEXPAND S$R(context), XEXPAND S$R(path) 
ZIF ZNOLL(node) XTHEN 
IF ZNULL(protocol) ZTHEN 
ZIF ZNULL (options) XTHEN 
ZIF ZNULL (location) XTHEN 


) 
ZELSE 
- 0, 0, 0, location) 
FI 
ZELSE 


0, 0, options 
£IF XNULL (Location) X%THEN 
ZELSE 
» location) 
FI 
ZELSE 


0, protocot 
£1F XNULL (options) %THEN 
ZIF ZNULL (location) XTHEN 


) 
ZELSE 
. 0, location) 


ZELSE 
options 
£1F XNULL (location) X%THEN 
4 
ZELSE 
- location) 
<FI 
xF1 
ZF I 
ZELSE 


nude 
<1F INULL (protocol) XTHEN 
ZIF ZNULL (options) ZXTHEN 
ZIF ZNULL (location) XTHEN 


ZELSE 
- 0, 0, location) 
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—-—t oe 


4F I 
ZELSE 


0, opt Neon 
£1FXNULL (location) %THEN 
ZELSE 
» location) 
XFI 
ZELSE 


prgteces 
£1F XNULL (options) XTHEN 
ZIF ZNULL (location) XTHEN 


ZELSE 
» 0, location) 


ZELSE 
options . 
£1F XNULL (location) XTHEN 
ZELSE 
» location) 
XFI 


xFI 
xFI 


status.wic.v = CDDSCREATE_ENTITY_ATT (context.rtu.r, entity.rlu.r, 
attribute.rlu.v, Tocation.wlu.7); 
coat °\ 7" Weneemmthe ain (context, entity, attribute, location) = 


EXTERNAL ROUTINE 
CDDSCREATE_ENTITY_ATT : FORTRAN; 


CDDSCREATE_ENTITY_ATT (ZEXPAND $R(context), ZEXPAND $R(entity), 
ZEXPAND $R(atEribute), XEXPAND $R(Location)) 


status.wic.v = CDDSCREATE_ENTITY_LIST_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu.v, List_size.rwu.v, location.wlu.rd; 


SCDDSCREATE_ENTITY_LIST_ATT (context, entity, attribute, List size, 
location) = 


COI 
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BEGIN 
EXTERNAL ROUTINE 
CDDSCREATE_ENTITY_LIST_ATT : FORTRAN; 


ceosenenTe petty iS Al Aly (XEXPAND $R(context), 
$R(entity)> EXPAND SR(attribute), 
pte sRettse Tis t, XEXPAND $R(Location)) 


status.wilc.v = COpSCREATE. FORWARD (context.rlu.r, path.rt.dx, 
Cnode.rlu.r filecrt.dx , C options.rlu.v] , Clocation.wlu. rj); 


vice” 7+ pec dmaamae (context, path, node=0, file, options, location) = 


EXTERNAL ROUTINE 
CDDSCREATE_FORWARD : FORTRAN; 


roan yt FORWARD ae $R(context), XEXPAND $R(path), node, 
ZEXPANBD SR( file) 


TIF ENULL (options) XTHEN 
<I1F eee (location) XTHEN 


XELSE 
. 0, location) 
FI 
ZELSE 


options 
£IF XNULL (location) XTHEN 


ZELSE 
.? location) 


status.wlc.v = CDDSCREATE_HISTORY (context.rlu.r, entity.rlu.r, 
facility.rt.dx, access.rlu.v,program.rt. dx, 
doscrietion, rt.dx); 


SCDODSCREATE_HISTORY (context, entity, facility, access, program, 
description) = 


GIN 
EXTERNAL ROUTINE 
CDDSCREATE_HISTORY : FORTRAN; 


CDDSCREATE_HWISTORY (ZEXPAND $R(context), ZEXPAND $R(entity), 
ZEXPAND $R(facii‘ty), XEXPAND $R(access) 
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“IF eM, thy A XTHEN 
iIF - L (description) %THEN 


ELSE | 
. 0, description) 


XELSE 
ZIF ZNULL (description) XTHEN 
program) 
ELSE | 


» program, description) 
FI prog p | 


status.wlc.v = CDDSCREATE_NULL_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu.v); 


eS eas (context, entity, attribute) = 


EXTERNAL ROUTINE 
CDDSCREATE_NULL_ATT : FORTRAN; 


CDDSCREATE_NULL_ATT (XEXPAND S$R(context), XEXPAND $R(entity), 
XEXPAND $R(attribute)) 


status.wlc.v = CDDSCREATE_NUM_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu.v, value.rl.v); 


OR ATE RATT (context, entity, attribute, value) = 


EXTERNAL ROUTINE | 
CDDSCREATE_NUM_ATT : FORTRAN: | 


CDODSCREATE_NUM_ATT (XEXPAND S$R(context), ZXEXPAND $R(entity), 
ZEXPAND $RTattribute), XEXPAND $R(value)) 


: status.wlc.v = CDDSCREATE_STRING_ATT (context.rlu.r, entity.rlu.r, 
: attribute.rlu.v, value.rt.dx , Cvalue_size.rwu.v]); 
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: | 
SCOOSEREATE STRING ATT (context, entity, attribute, value, value_size) = 


—— ROUTIN 
CDDSCREATE NETRING. ATT : FORTRAN; 


CDDSCREATE_STRING_ATT (ZEXPAND SR(context), ZEXPAND $R(entity), 
ZEXPAND SR(attribute) BEXPANO $R(value) 
<IF LL (value_sizes % 


ZELSE 
» value_size) 
2FI 


status.wlc.v = CDDSCREATE_STRING_LIST_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu. v, Cist_size.rwu.v, location.wlu. ir; 


SCDDSCREATE_STRING_LIST_ATT (context, entity, attribute, List_size, 
location) = 


IN 
EXTERNAL ROUTINE 
CDDSCREATE_STRING_LIST_ATT : FORTRAN; 


CDDSCREATE_STRING_LIST_ATT (ZEXPAND $R(context), 
ZEXPAND S$R(entity)> XEXPAND S$R(attribute), 
a ZEXPAND S$R(List _size), ZEXPAND $R(Location)) 


protocol.rt.dx, options.rlu.v, location.wlu.r . Corior. rt.dxJ); 


SCDDSCREATE_TERM (context, path, node=0, protocol, options=0, 
Location, prior) = 


EXTERNAL ROUTINE 
CDDSCREATE_TERM : FORTRAN; 


COOSCREATE TERM (REXPAND $R(context), ZEXPAND $R(path), node, 
XE XPAND paipretores: . options. ZEXPAND $R( Location 
LIF SNULL (prior) THEN 
J 


status.wlc.v = CDDSCREATE_TERM (context.rlu.r, path.rt.dx, Cnode.rlu.rl, 
| 


ZELSE 
» prior) 
ZFI 
END 
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x, 


status.wic.v = CDDSDELETE =ACl. ENTRY sgentent. rlu.r, Cpoath.rt.dx] , 
Cnode.rlu.r] , position.rwu.v); 
vom 3 Ne ACL_ENTRY (context, path, node, position) = 


——— ROUTINE 
DSDELETE_ACL_ENTRY : FORTRAN; 


CDDSDELETE ACL iy we $R( context) 
ZIF IN NOLL Tt ) &TH 


at 
bwuttt inode) OR THEN 
it we OR (‘Either path or node must be specified') 


xeisé ° 
5 . node 


ZELSE 
ZIF XZNULL (mode) XTHEN 


path, 
XELSE 
» path, node 
“FI 


I 
» ZEXPAND $R(position)) 
END 


status.wic.v = CDDSDELETE_ATT seentext. rlu.r, entity.rlu.r, 
attribute.rlu.v); 


eceoseeys Te Ate ‘context, entity, attribute) = 


EXTERNAL ROUTINE 
CDDSDELETE_ATT : FORTRAN; 


CDDSDELETE_ATT (XEXPAND $R(context), XEXPAND $R(entity), 
a ZEXPAND $R(attribute)) 


status pute. v= es py NODE (context. rlu.r, Cpath.rt.dx) , 
node.rlu.r options.rlu.vJ); 
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SCODSDEL ETE NODE (context, path, node, options) = 


EXTERNAL ROUTINE 
CDDSDELETE_NODE : FORTRAN; 


CDDSDELETE_ NODE (XEXPAND $R(context) 
XIF ENOLL (path) XTHEN 
ZIF ZNULL (node) XTHEN 
ZERROR (‘Either path or node must be specified’) 


- 0, node 
<FI 
ZELSE 
ZIF ZNULL (node) XTHEN 


t 
xecsé ° 
» path, node 
tFI 


ZF I 
ZIF ZNULL (options) XTHEN 
ZELSE 


» options) 
FI “ 


UNI 


status.wic.v = CDODSFILL_STRING_CELL (context.rlu.r, List.rlu.r, 
cell.rwu.v, value.rt.dx , Cvalue_ size.rwu. v)); 


SCBOSE 1h STRING CELL (context, List, cell, value, value_size) = 


EXTERNAL ROUTINE 
CODSFILL_STRING_CELL : FORTRAN; 


CDDSFILL_STRING_CELL (ZEXPAND $R(context), ZEXPAND S$R(List), 
ZEXPAND $R(CTeLL), ZEXPAND $R(value) 
TIF pan (value. size) XTHEN 


XELSE 
- value_size) 
zl 


e.rlu Clocation.wlu.r rotocol.wt.dx] , 


status wie v= oye CUS NODE (contex “rly. -r, Coath.rt.dx) , 
frode-rlu.r ze.wwu.rd); 4 
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SCDDSFIND_NODE (context, path, node, location, protocol, protocol_size) = 


seahieg *' ROUTINE 
CDDSF IND_NODE : FORTRAN; 


CODE Imo NODE (ZEXPAND S$R(context) 
XIF EMUL bi ath) XTHEN 


EN 
—_ OR (Either path or node must be specified’) 


XELSE 
‘ ‘ node 


ZELSE 
ZIF ZNULL (node) XTHEN 


a 
xecsé ° 
» path, node 
FI 


I 
7 pu (Location) XTHEN 
ZIF ZNULL preqeces! <TH 
re ~ L (protocol_ - XTHEN 


XELSE 
XERROR ('Protocol-size cannot be used without protocol") 


iF 
%1 


XF I 
ZELSE 
0, protosel 
<IF ULL (protocol_size) %THEN 
ZELS 
<FI 
xFI 
ZELSE 


tur? ELE Betyg nme X THEN 
NULL (protocol_ - XZ THEN 


E 
- protocol_size) 


XELSE 
gennen (*Protocol-size cannot be used without protocol’) 


2FI 
ZELSE 


pretecet 

£1F XNULL (protocol_size) XTHEN 
ZELS 
2FI 

2FI 


xFI 
END | 


E 
+ protocol_size) 
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x, 


status.wlc.v = CDODSFORMAT_ACL_ENTRY eg ee te -rlu.r, node.rlu.r, 
position.rwu.v, string.wt.dx, Lstring-size.wwu.rd); 


Scene TAT AG. ENTRY (context, node, position, string, string_size) = 


aie ROUTINE 
CDDSFORMAT_ACL_ENTRY : FORTRAN; 


CDDSFORMAT_ACL_ENTRY (XZEXPAND $R(context), XEXPAND $R(node), 
XEXPAND $RTposition), XEXPAND $R(string) 
RIF ZNULL (string_ size) XTHEN 


) 
ZELSE 
» string_size) 
<FI 
END 
x, 


status.wic.v = CDDSGET_ACCESS_RIGHTS (context.rlu.r, Cpath.rt.dx] , 
{node.rlu.r] , “rights.wlu.r); 
ecooses | Access. RIGHTS (context, path, node, rights) = 


EXTERNAL ROUTINE 
CDDSGET_ACCESS_RIGHTS : FORTRAN; 


CDDSGET ort meh (ZEXPAND $R(context) 
xIF Rar L Tpath) XTHEN 


 ewure (node) ZX THEN 
rit 7 ("Either path or node must be specified’) 


XELSE 
“ . nod 
FI 
ZIF XZNULL (node) XTHEN 
xecsé ° 
- path, node 
FI 


FI 
, XEXPAND $R(rights)) 


ZELS 
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status.wic.v = CODSCET ACL ENTRY (context.rlu.r, 
node.rlu.r, position.rwu.v, grant.wlu.r, deny.wlu.r, 
banish. vlur. password.wt.dx 


terminal.wt.dx, uic.wt.dx, uSername.wt.dx); 
SCDDSGET_ACL_ENTRY (context, node, position, grant, deny, 


anish, password, terminal, uic, username) = 


I 
exten, ROUTINE 
CDDSGET_ACL_ENTRY : FORTRAN; 
CDDSGET_ACL_ENTRY (ZEXPAND S$R(context), ZEXPAND $R(node), 
ZEXPAND SR( position), ZEXPAND $R(grant), 
ZEXPAND SR(deny), ZEXPAND $R(banish), 
ZEXPAND SR(password), XEXPAND $R(terminal), EXPAND $R(uic), 
we XEXPAND $R(username) 5 


status.wlc.v = CDDSGET_ATT (context.rlu.r, entity.rlu.r 
attribute.rlu.v, type.wlu.r, Clocation.wlg.r] P 
Cvalue.wt.dx] , Cvalue_size.wwu.r]); 


vet >? + ATT (context, entity, attribute, type, location, value, value_size) = 


EXTERNAL ROUTINE 
CDDSGET_ATT : FORTRAN; 


CDDSGET_ATT (ZEXPAND $R(context), ZEXPAND $R(entity), 
ZEXPAND $R(attribute), ZEXPAND S$R(type) 
ZIF ZNULL (location) &THEN 
ZIF ZNULL (value) XTHEN 
ZIF ZNULL (value_size) ZTHEN 


ZELSE 
- 0, 0, value_size) 
xF I 
ZELSE 
ZIF NULL Cyalve_stee) XTHEN 


- value 
XELSE 
0, value, value_size) 
<FI 


XFI 
LSE 
ZIF ZNULL (value) ZTHEN 


( 

ZIF ZNULL (value_size) ZTHEN 
location) 

xELsé 
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» location, 0, value_size) 
<FI 


BELSS 
IF ZNULL (value_size) XTHEN 
Location, value) 
xELSé 


ee’ location, value, value_size) 
<FI 


aFI 
END 


status.wic.v = CDDSGET_ATTS (context.rlu.r, location.rlu.r, 
List.ra.v); 


wane | ATTS (context, location, List) = 


EXTERNAL ROUTINE 
CDDSGET_ATTS : FORTRAN; 


CDDSGET_ATTS (ZEXPAND $R(context), ZEXPAND $R( Location), 
— ZEXPAND $R(List)) 


status.wlc.v = CDDSGET_ENTITY_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu.v, location.wlu.r); 


vont? +) willed (context, entity, attribute, location) = 


EXTERNAL ROUTINE 
CDDSGET_ENTITY_ATT : FORTRAN; 


CDDSGET_ENTITY_ATT (ZEXPAND S$R(context), XEXPAND $R(entity), 
ZEXPAND $RTattribute), ZEXPAND $R(location)) 


status.wlc.v = CDD$GET_ENTITY_CELL (context.rlu.r, List.rlu.r, 
cell.rwu.v, location.wlu.r); 


SCOOSSET PUT ETT CEL. (context, list, cell, location) = 
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sabia ROUT INE 
CDODSGET_ENTITY_CELL : FORTRAN; 


CDDSGET ENTITY CELL (ZEXPAND SR(context), pacers S$R( List), 
t ZEXPAND SRTcell), EXPAND $R(location) 


status.wlc.v = eee AF ENTITY_LIST_ATT (context.rlu.r, entity.rlu.r, 
ufte.rlu.V¥, location.wlu.r , 
List _size.wwu.r J); 


SCO TIET LYNE TT LIST ATT (context, entity, attribute, location, 
= 


I 
EXTERNAL ROUTINE 
CDODSGET_ENTITY_LIST_ATT : FORTRAN; 


CDDSGET_ENTITY_LIST_ATT (XEXPAND S$R(context), ZEXPAND $R(entity), 
ZEXPAND $RTattribute), XEXPAND $R( Location) 
ZIF ZNULL (List_size) “THEN 


ZELSE 
. list size) 
ZFI 


status.wlc.v = CDDSGET_NEXT_ATT (context.rlu.r, entity.rlu.r, 
attribute.wlu.r, type.wlu.r, ELocation. wlg.rd, 
Cstring.rt.dx] . Cvalue_size.rwu.rJ); 


SCDDSGET_NEXT_ATT (context, entity, attribute, type, location, string, 
value_size) = 


GIN 
EXTERNAL ROUTINE 
CDDSGET_NEXT_ATT : FORTRAN; 


CDDSGET_NEXT_ATT (ZEXPAND $R(context), XEXPAND $R(entity), 
XEXPAND SR(attribute), XEXPAND $R(type) 
XIF ZNULL (Location) THEN 
ZIF ZNULL (string) % a 
ZIF ZNULL (value_size) ZTHEN 


ZELSE 
- 0, 0, value_size) 


ZELSE 


"1 
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ZI1F a ag (value_size) %THEN 
° string) 


xecseé 
0, string, value_size) 
2F I 


2F 1 
“ELSE 
Z1F ea, (string) XTHEN 
RIF ZNULL (value_size) X%THEN 
ocation) 


- location, 0, value_size) 
2FI 


ZIF ZNULL (value_size) XTHEN 
location, string) 


eri’ location, string, value_size) 
xFI 
xF I 


status.wlc.v = CDDSGET_NULL_ATT (context.rlu.r, entity.rlu.r, 
attribute.rli.v); 


BcaoseE! MAL ATT (context. entity, attribute) = 


EXTERNAL ROUTINE 
CDD$SGET_NULL_ATT : FORTRAN; 


CDDSGET_NULL_ATT (ZEXPAND S$R(context), XEXPAND $R(entity), 
ZEXPAND SR(attribute)) 


status.wlc.v = CDDSGET_NUM_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu.v, value.wl.r); 


Scoosee! MATT (context, entity, attribute, value) = 


EXTERNAL ROUTINE 
CDD$GET_NUM_ATT : FORTRAN; 


CDDSGET_NUM_ATT (ZEXPAND $R(context), XEXPAND $R(entity), 
“ie ZEXPAND $R(attribute), XEXPAND $R(value)) 


N 1 
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%, 


status.wic.v = CDDSGET_STRING_ATT (context.rlu.r, entity.rlu.r, 
attribute.rlu.v, value.wt. dx P fvatue _size.wwu. r)); 


SCDDSGET STRING_ATT (context, entity, attribute, value, vaiue_size) = 


———— ROUTINE 
CDODSGET_STRING_ATT : FORTRAN; 


CDDSGET_STRING_ATT (XEXPAND Peareneeet? « ZEXPAND $R(entity), 
ZEXPAND $RTattribute), XEXPAND $R(value) 
MIF ZNULL (value_sizes XTHEN 


ZELSE 
» value_size) 
ZF I 
END 
x, 


status.wic.v = CDDSGET_STRING_ CELL (context.rlu.r, List.rlu.r, 
cell.rwu.v, value.wt.dx , (value. size.wwu. r]); 


sont + 1 ata eens (context, List, cell, value, value_size) = 


EXTERNAL ROUTINE 
CDD$GET_STRING_CELL : FORTRAN; 


CDD$GET srnins CELL (ZEXPAND $R(context), ZEXPAND $R(List), 
ZEXPAND S$RTcell), XEXPAND $R(value) 
ZI1F SMULL een size) X%THEN 


) 
ZELSE 

- value_size) 
2FI 


status.wlc.v = ceeeer’ g STRING. LIST_ATT (context.rlu.r, entity.rlu.r, 
tt ribute.rlu.v, Location. wlu.r , 
list _Size.wwu. rj); 


SCODSGET_ 4 he LIST_ATT (context, entity, attribute, location, 
st_size) = 


KIO MOOWMZ ES KOK TO WM IOCOZ SE KOK ITO *MIOCMZ SE ACK TO MIOOZ Sr ACK TA "MIOOW 
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BEGIN 
on, ROUTINE 
CDDSGET_STRING_LIST_ATT : FORTRAN; 
CDDSGET_STRING_LIST_ATT (XEXPAND Bai cencenti wets $R(entity), 
EXPAND Mea set ZEXPAND $R( Location) 
ZIF ZNULL (list size) Z%THEN 
ZELSE 
. List size) 
ZFI 
END 


status.,wlc.v = CDDSLOCK_NODE (context.rlu.r, Cpath.rt.dx] , 
{node.rlu.r] , location.wlu.r P Cprotoco ewt.dx] , 
feretecel-siee. wwu.r] ); 


SCDDSLOCK_NODE (context, path, node, location, protocol, protocol_size) = 


EXTERNAL ROUTINE 
CDD$LOCK_NODE : FORTRAN; 


CDDSLOCK_NODE (ZEXPAND $R(context) 
XIF ZNULL(path) XTHEN 
ZIF ZNULL (node) XTHEN ee 
ZERROR (‘Either path or node must be specified’) 


XELSE 
. 0, node 


ZELSE 
ZIF ZNULL (node) XTHEN 
g path, 


+ path, node 
ZF I 


ZEXPAND pbbewend |e 
<1F ra Y thy a 
ZI1F ws L (protocol_ oc I THEN 


XELSE 
pennon ("Protocol-size cannot be used without protocol") 


2FI 
ZELSE 


preccces 
£1F NULL (protocol_size) ZTHEN 


TELSE 
+ protocol_size) 
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e-size.wwu.r] , Clocation. wiuer ; Cprotocol. wt.dx 
protocol-size.wwu. rj); 


ran Era -v = CDDSNEXT_NODE (context.rlu.r, node.rlu.r, name ewt.dx, 


SCDDSNEXT_NODE (context, node, name, name_size, location, protocol, 
protocol Size) = 


EXTERNAL ROUTINE 

CDDSNEXT_NODE : FORTRAN; 
CDDSNEXT_NODF (ZEXPAND $R(context), ZXEXPAND $R(node), 

XEXPAND $R(name) 

ZIF XZNULL (mame_size) XTHEN 

ZI1F EMULE (Tocation) XTHEN 
Z<I1F tm EuELtprote ZTHEN 
ULL (protocol_ + Fe X THEN 


XELSE 
 eaeeen ("Protocol-size cannot be used without protocol’) 
FI 
ZELSE 
ro 
tir’ znoul” te tees 9 ky size) XTHEN 
ZELS ‘ 
« protocol_size) 
FI 
<F 
ZELSE 
location 


fi? ewutt (Protocol) THEN 
L (protocol_size) ZTHEN 


LELSE 
XERROR ('Protocol-size cannot be used without protocol") 
tFI 
ZELSE 
rotocol 
£1F ZNULL (protocol_size) ZTHEN 
ZELS 


E 
+ protocol_size) 
mF I 


tFI 
tFI 


1 
CDDMAC .R32;1 16-SEP-1984 17:02:19.9 Page 19 


ZELSE 
“iF He vitocat ion) XTHEN 
as: preqeces?. Py 
NULL (protocol_ 2 ZTHEN 


ZELS 
= ('Protocol-size cannot be used without protocol") 


XFI 
ZELSE 


0, protecot 
£IFXNULL (protocol_size) XTHEN 
ZELSE 
» protocol_size) 
TFI 
ZELSE 
locat 


LIF ELE (protocol) %THEN 
de ance L (protocol_size) XTHEN 


XELSE 
ZERROR ('Protocol-size cannot be used without protocol") 
TF I 
ZELSE 
give 
£1F XNULL (protocol_size) XTHEN 
ELS 


E 
+ protocol_size) 
2FI 


tFI 
2FI 


status.,wle.v = CDDSRENAME_NODE (context.riu.r, Cpath.rt.dx] , 
tnod de.rlu.r » name.rt.dx); 
aorta -~ 17" tna (context, path, node, name) = 


EXTERNAL ROUTINE 
CDDSRENAME _NODE : FORTRAN; 


CODSRENAME NODE (ZEXPAND S$R(context) 
<1F PA (peth? Bt TH ee 
TIF LL (node 
ZERROR ( Ag an eh or node must be specified’) 
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0, 0 
XELSE 
» 8 
tFI 
ZELSE 
ZIF ZNULL (mode) XTHEN 
path, 
XELSE 
» path, node 
<FI 


» ZEXPAND $R(name)) 


status.wlc.v = CDDSRLSE_LOCKS (context. rlu.r, Cpath.rt.dx] , 
tnode.rlu.r] , Coptions.rlu.vJ); 


SCROSM, FE LOCKS (context, path, node, options) = 
EXTERNAL ROUTINE 


CDDSRLSE_LOCKS : FORTRAN; 
CDDSRLSE_LOCKS (X%EXPAND $R(context) 
XIF ZNULL(path) XTHEN 


ZIF ZNULL(node) XTHEN 
ZIF ZNULL(options) XTHEN 


ZELSE 
- 0. 0, options) 


XELSE 
0, node 
£IF XNULL(options) %THEN 
XELSE 
- options) 
“FI 
ZELSE 


£if°tn INULL (node) %THEN 
ZIF ZNULL(options) XTHEN 


ZELSE 
. 0, options) 


XELSE 
node 
£1F XNULL(options) XTHEN 


RELSE 
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» options) 


status.wlc.v = CDDSSET_DEFAULT (context.rlu.r, Cpath.rt.dx] , 
Cnode.rlu.rJ); 


voce} wattaa (context, path, node) = 
EXTERNAL ROUTINE 


CDDSSET_DEF AULT : FORTRAN; 
CDDSSET_DEFAULT (XEXPAND $R(context) 
ZIF ZNULL(path) XTHEN 


F ZNULL (node) XTHEN 
ZERROR (‘Either path or node must be specified') 


SE 
RIF ZNULL (node) XTHEN 


ath, 
xecsé ° 


» path, node) 
FI 
<FI 


: status.wlc.v = CDDSSIGN_IN (context.wlu.r , Cdefault_dir.rt.dx]); 


acess is (context, default_dir) = 


EXTERNAL ROUTINE 
CDD$SIGN_IN : FORTRAN; 


CDDSSIGN_IN (ZEXPAND $R(context) 
RIF ZNULL(default_dir) XTHEN 


) 
XELSE 

, default_dir) 
FI 


status.wlec.v = CDDSSIGN_OUT (context.rlu.r); 


SCDDSSIGN_OUT (context) = 
BEGIN 


EXTERNAL ROUTINE 
CDD$SIGN_OUT : FORTRAN; 


. CDDSSIGN_OUT (XEXPAND $R(context)) 
i; 


UNDE CLARE 
ZQUOTE $R; 
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